home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mailable.arc / MLABEL5.PRG < prev   
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  18 lines
  1. * MLABEL5.CMD
  2. * SETUP LABEL FORMAT
  3.    MLINE1=MLINE1+TRIM('             Expires:' + EXPIRE + MSPACE)
  4.    MLINE2= MLINE2+TRIM(NAME+MSPACE)
  5.    IF ORG = ' '
  6.      MLINE3=MLINE3+TRIM(STREET+MSPACE)
  7.      MLINE4=MLINE4 + TRIM(CITY:ST - (' '+ ZIP ) +MSPACE)
  8.      MLINE5=MLINE5 +MSPACE
  9.    ELSE
  10.      MLINE3 = MLINE3 + TRIM(ORG + MSPACE)
  11.      MLINE4 = MLINE4 + TRIM(STREET + MSPACE)
  12.      MLINE5 = MLINE5 + TRIM(CITY:ST - (' '+ ZIP ) + MSPACE)
  13.    ENDIF
  14.    MCOUNT = MCOUNT + 1
  15. RETURN
  16. DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~    
  17.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~    
  18.  !"#$%